arithmetic operations on vectors in r